# reading in the data
fish_passage <- read_csv(here("data", "willamette_fish_passage.csv")) %>%
clean_names() %>%
pivot_longer(cols = 3:15, names_to = "species", values_to = "counts") %>%
mutate(date_new = mdy(date)) %>%
filter(species %in% c("coho", "jack_coho", "steelhead")) %>%
as_tsibble(key = species,
index = date_new)
Photograph of the Willamette Falls Fish Ladder. Photo credit: Yancy Lind
An engaging image (with caption, including photo credit) that is relevant to the data set
A brief summary (3 - 4 sentences) of the data set, and what is included in this “report”
A map of the fish ladder location (you can make this in R on your own, or include an existing map appropriately licensed, with attribution)
A professionally formatted data citation
Remember: All code that you used to wrangle the data and prepare the graphs should be available to see if we click on the Code buttons.
Data source:
Columbia Basin Research. DART Adult Passage Graphics and Text. Dates: 2001-01-01 to 2010-12-31. Accessed: 2021-01-29. School of Aquatic & Fishery Sciences, University of Washington. URL: http://www.cbr.washington.edu/dart/query/adult_graph_text
tab_1 <- fish_passage %>%
select(species, date_new, counts) %>%
mutate_if(is.numeric, ~replace(., is.na(.), 0)) %>%
mutate(year = year(date_new)) %>%
mutate(species = case_when(
species == "coho" ~ "Coho",
species == "jack_coho" ~ "Jack Coho",
species == "steelhead" ~ "Steelhead"
))
ggplot(data = tab_1, aes(x = date_new,
y = counts)) +
geom_line(aes(color = species)) +
#facet_wrap(~species, scales = "free_y") +
labs(x = "Time (years)",
y = "Number of Salmon",
title = "Coho, Jack Coho, and Steelhead Ladder Passage - Willamette River, Oregon")
Figure 1: Coho, Jack Coho, and Steelhead passage through the Willamette Falls fish ladder on the Willamette River, Oregon, starting in 2001 and through 2010. Coho is indicated in red, Jack Coho is indicated in green, and Steelhead is indicated in blue. Data from: Colombia Basin Research. School of Aquatic & Fishery Science, University of Washington. Date accessed: 2021-01-29. http://www.cbr.washington.edu/dart/query/adult_graph_text
# create seasonplots for each species
fish_passage %>%
mutate(species = case_when(
species == "coho" ~ "Coho",
species == "jack_coho" ~ "Jack Coho",
species == "steelhead" ~ "Steelhead"
)) %>%
gg_season(y = counts,
pal = scales::viridis_pal()(9)) +
facet_wrap("species") +
ylab("Fish counts") +
xlab("Date") +
theme_classic()
Figure 2: Coho, Jack Coho, and Steelhead abundance through time on the Willamette River, Oregon, for 2001-2010. Each line represents a different year. Data from: Colombia Basin Research. School of Aquatic & Fishery Science, University of Washington. Date accessed: 2021-01-29. http://www.cbr.washington.edu/dart/query/adult_graph_text